Cevela about COBOL | COBOL language - Home - Site Map - About Cevela - MX COBOL <prev next> |
68-1 object-computer. sequence Abc-1. special-names. alphabet Abc-1 Char-1 thru Char-2 . Char-3 ... file-control. select File-1 assign Dev-1. file section. sd File-1. 1 Rec-1. 2 Dat-2 data-spec* 2 Dat-3 data-spec* 2 .. procedure division. .. sort File-1 key-spec* ascending Dat-2 ... descending Dat-3 ... [duplicates] [sequence Abc-1] input-spec* / input procedure Proc-2 / using File-2 ... output-spec* / output procedure Proc-3 / giving File-3 ... .. Proc-2. .. release Rec-1 .. Proc-3. .. return File-1 .. |
68-1 sort File-1 key-spec* ascending Dat-2 ... descending Dat-3 ... [duplicates] [sequence Abc-1] input-spec* / input procedure Proc-2 / using File-2 ... output-spec* / output procedure Proc-3 / giving File-3 ... |
68-1 release Rec-1 [from Dat-2] Lit-2 |
68-1 return File-1 [into Dat-2] end imperative-statements-3* [not end 85-1 imperative-statements-4*] end-of-statement* end-return . |